home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Development Tools & Languages / Dylan Related / Thomas / MacGambit⁄Thomas / MacGambit⁄Thomas Sources / Thomas 1.1 sources / dylan-object-help.dyl < prev    next >
Encoding:
Text File  |  1995-03-15  |  256 b   |  8 lines  |  [TEXT/gamI]
  1. (define-method slot-descriptor-slot-name (s)
  2.   (apply (scheme-procedure 'vector-ref) (list s 1)))
  3.  
  4. (define-method object-slot-names ((o <object>))
  5.   (bind ((slot-list (slot-descriptors (class-for-copy o))))
  6.     (map slot-descriptor-slot-name slot-list)))
  7.  
  8.